Importação de taxas de câmbio do site NBU para LibreOffice Calc

NBU_RATE() Descrição

Uma função pronta para quem costuma usar taxas de câmbio NBU em LibreOffice Calc .

Ajuda a obter automaticamente o valor da taxa de câmbio de Site da NBU por seu código e data.

StarBASIC código para função NBU_RATE

Para adicionar um recurso taxas de câmbio de importação do NBU , abra o menu Tools - Macros - Edit Macros... , selecione Módulo1 e copie o seguinte texto neste módulo:

Function NBU_RATE(ByVal pCurrency, ByVal pDate)
  'moonexcel.com.ua 
  Dim FCalc As Object
  
  If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function             
      
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
  
  tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD"))
                                                    
  RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
            
  WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString))  
  
  NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit"))    
End Function

Fecha-o Macro Editor e voltar para LibreOffice Calc .

Agora você pode inserir manualmente nossa função NBU_RATE() . A sintaxe desta função é a seguinte:

=NBU_RATE ( Código da moeda ; data )

Teremos o seguinte resultado:

Usando a extensão

Você também pode usar a função NBUA() instalando a extensão gratuita YouLibreCalc.oxt ou sua versão completa YLC_Utilities.oxt .

Depois disso, esta função estará disponível em todos os arquivos que serão abertos em LibreOffice Calc.